home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)woc vi 88.d64 / shuffle two.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  449b  |  4 lines

  1. 40 PRINT"[147]":FORB=54272TO54296:POKEB,0:NEXTB:V=54296:W=54276:A=54277:HF=54273:LF=54272:FORY=1TO3:FORX=1TO50:POKEV,15:POKEW,129:POKEA,15:POKEHF,60:POKELF,100:POKEHF,0:POKELF,0:POKEW,0:NEXTX:FORT=1TO300:NEXTT:FORX=1TO50:POKEV,8:POKEW,129:POKEA,31
  2. 170 POKEHF,90:POKELF,140:POKEHF,0:POKELF,0:POKEW,0:NEXTX:FORZ=1TO300:NEXTZ:NEXTY:PRINT"[147]":POKE53280,11:POKE53281,11:PRINT"[155]":PRINT:PRINT:PRINT"  THIS IS PROGRAM #2:  AS I TOLD YOU":PRINT:PRINT"  THE SOUND OF THIS SHUFFLE IS MORE":PRINT:PRINT"  LIKE YOU OR I SITTING IN THE GAME.":PRINT
  3. 260 PRINT"  WELL AT LEAST ME.  HAVE FUN.":FORC=1TO5000:NEXTC
  4.